From c03f179e253cfce18c21c5eb1a0cde2e2bdbaf43 Mon Sep 17 00:00:00 2001 From: justbur Date: Thu, 28 Jul 2016 09:17:19 -0400 Subject: [PATCH] Disable hack for echo area Seems to cause more problems (like completion commands sometimes being overwritten) than it solves. --- which-key.el | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) diff --git a/which-key.el b/which-key.el index f77d7256cf2..d7cee3ff4ea 100644 --- a/which-key.el +++ b/which-key.el @@ -1656,18 +1656,21 @@ is the width of the live window." (setcar (cdr (assq 'which-key-mode minor-mode-alist)) which-key--lighter-backup))) (defun which-key--echo (text) - "Echo TEXT to minibuffer without logging. -Slight delay gets around evil functions that clear the echo -area." + "Echo TEXT to minibuffer without logging." (let* ((minibuffer (eq which-key-popup-type 'minibuffer)) - (delay (if minibuffer - 0.2 - (+ (or echo-keystrokes 0) 0.001))) + ;; (delay (if minibuffer + ;; 0.2 + ;; (+ (or echo-keystrokes 0) 0.001))) message-log-max) (unless minibuffer (message "%s" text)) - (run-with-idle-timer - delay nil (lambda () (let (message-log-max) - (message "%s" text)))))) + + ;; Caused some completion commands in the minibuffer to be overwritten, so + ;; disable the hack for now + + ;; (run-with-idle-timer + ;; delay nil (lambda () (let (message-log-max) + ;; (message "%s" text)))) + )) (defun which-key--next-page-hint (prefix-keys) "Return string for next page hint." -- 2.30.2